(defun my-add-subdirs-to-load-path (dir)
  "将参数下的所有子目录扔进load-path中"
 (let ((default-directory (concat dir "/")))
  (setq load-path (cons dir load-path))
  (normal-top-level-add-subdirs-to-load-path)))

(provide 'my-add-subdirs-to-load-path)
